home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / bbs / bpc_reg3.zip / REG3.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-13  |  3KB  |  178 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     GetUser
  30.     Cls
  31.     PrintLn "@X1F USER REGISTRATION V3.0                                  Coded by .\@X1D\@X1Ca@X14d @X1F├|at@X1Dt@X1Ce@X14r @X07"
  32.     Newlines 4
  33.     PrintLn "@X7F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  34.     PrintLn "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  35.     Newlines 2
  36.     PrintLn "@X7F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  37.     PrintLn "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  38.     Newlines 2
  39.     PrintLn "@X7F▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  40.     PrintLn "@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X07"
  41.     FOpen 0, PPEPath() + "REG3.CFG", 2, 0
  42.     FGet 0, STRING001
  43.     FGet 0, STRING002
  44.     FAppend 1, STRING001, 2, 0
  45.     FPutLn 1, ""
  46.     FPutLn 1, "*[USER REGISTRATION V3.0 by .\\ad ├|atter]**************************************"
  47.     FPutLn 1, " System Date: ", Date(), ", System Time: ", Time(), "."
  48.     FPutLn 1, " Name: ", U_Name(), ", Security: ", U_Sec, "."
  49.     FPutLn 1, " Bytes Uploaded: ", U_Bul(), ", Bytes Downloaded: ", U_Bdl(), "."
  50.     FPutLn 1, "********************************************************************************"
  51.     FPutLn 1, ""
  52.     :LABEL001
  53.     STRING005 = 1
  54.     FGet 0, STRING003
  55.     If (STRING003 == "") Goto LABEL006
  56.     AnsiPos 2, 17
  57.     PrintLn "                                                                               "
  58.     AnsiPos 2, 13
  59.     PrintLn "                                                                               "
  60.     AnsiPos 4, 9
  61.     PrintLn "                                                                               "
  62.     AnsiPos 4, 9
  63.     :LABEL002
  64.     STRING006 = Left(STRING003, STRING005)
  65.     STRING007 = Right(STRING006, 1)
  66.     If (STRING007 == "~") Goto LABEL003
  67.     Print "@X08" + STRING007
  68.     Delay 1
  69.     Backup 1
  70.     Print "@X07" + STRING007
  71.     Delay 1
  72.     Backup 1
  73.     Print "@X0F" + STRING007
  74.     Delay 1
  75.     STRING005 = STRING005 + 1
  76.     Goto LABEL002
  77.     :LABEL003
  78.     FPutLn 1, "Q: ", STRING003
  79.     :LABEL004
  80.     STRING004 = ""
  81.     AnsiPos 2, 13
  82.     Print " [···········································································]@X07"
  83.     Backup 76
  84.     InputStr "@X0F_", STRING004, 12, 75, Mask_Ascii(), 4096
  85.     If (STRING004 == "") Goto LABEL005
  86.     FPutLn 1, "A: ", STRING004
  87.     Goto LABEL001
  88.     :LABEL005
  89.     AnsiPos 1, 18
  90.     PrintLn "                        @X8CPlease, Answer Question Rquired!@X07                      "
  91.     Delay 30
  92.     AnsiPos 1, 18
  93.     PrintLn "                                                                              "
  94.     Goto LABEL004
  95.     :LABEL006
  96.     If (U_Sec >= STRING002) Goto LABEL007
  97.     U_Sec = STRING002
  98.     PutUser
  99.     AnsiPos 1, 18
  100.     PrintLn "                         @X0AYour Security Is @X8F", U_Sec, "@X0A By Now. @X07                     "
  101.     Goto LABEL008
  102.     :LABEL007
  103.     AnsiPos 1, 18
  104.     PrintLn "      @X0AYour Security Level Is Already At @X8F", U_Sec, "@X0A Point. Upgrade Isn't Possible@X07   "
  105.     :LABEL008
  106.     AnsiPos 1, 20
  107.     PrintLn "@X09          @X0FT@X09h@X01ank @X0FY@X09o@X01u @X0Ff@X09o@X01r @X0Fu@X09s@X01ing @X0FU@X09s@X01er @X0FR@X09e@X01gistration @X0Fv@X093@X01.0 @X0Fb@X09y @X0F.@X09\@X01\ad @X0F├@X09|@X01atter.@X07         "
  108.     FClose 0
  109.     FClose 1
  110.     Wait
  111.     Cls
  112.     End
  113.  
  114. ;------------------------------------------------------------------------------
  115. ;
  116. ; Usage report (before postprocessing)
  117. ;
  118. ; ■ Statements used :
  119. ;
  120. ;    1       End
  121. ;    2       Cls
  122. ;    1       Wait
  123. ;    8       Goto 
  124. ;    6       Let 
  125. ;    4       Print 
  126. ;    15      PrintLn 
  127. ;    4       If 
  128. ;    1       FOpen 
  129. ;    1       FAppend 
  130. ;    2       FClose 
  131. ;    3       FGet 
  132. ;    9       FPutLn 
  133. ;    1       GetUser
  134. ;    1       PutUser
  135. ;    1       InputStr 
  136. ;    4       Delay 
  137. ;    3       Newlines 
  138. ;    10      AnsiPos 
  139. ;    3       Backup 
  140. ;
  141. ;
  142. ; ■ Functions used :
  143. ;
  144. ;    5       +
  145. ;    3       ==
  146. ;    1       >=
  147. ;    1       Left()
  148. ;    1       Right()
  149. ;    1       Date()
  150. ;    1       Time()
  151. ;    1       U_Name()
  152. ;    1       U_Bdl()
  153. ;    1       U_Bul()
  154. ;    1       Mask_Ascii()
  155. ;    1       PPEPath()
  156. ;
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Analysis flags : W
  160. ;
  161. ; W - Write user ■ 5
  162. ;     Program writes a user record. Although this may be normal for a
  163. ;     User Editor, it may also be a way to modify an account level.
  164. ;     ■ Search for : PUTUSER
  165. ;
  166. ;------------------------------------------------------------------------------
  167. ;
  168. ; Postprocessing report
  169. ;
  170. ;    0       For/Next
  171. ;    0       While/EndWhile
  172. ;    0       If/Then or If/Then/Else
  173. ;    0       Select Case
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;                 AEGiS Corp - Break the routines, code against the machines!
  177. ;------------------------------------------------------------------------------
  178.